From 5d1fa1a04e52737ede05caa9acb2e463987e2a7f Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 25 Apr 1994 22:31:41 +0000 Subject: [PATCH] (compilation-next-error-locus): Use compilation-error-message instead of "Moved past last error" when MOVE is 1 (default value). --- lisp/progmodes/compile.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 2ec9edae9e9..a9544f2585f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -853,9 +853,10 @@ The current buffer should be the desired compilation output buffer." (while (if (null next-error) (progn - (if move (if (> move 0) - (error "Moved past last error") - (error "Moved back past first error"))) + (and move (/= move 1) + (error (if (> move 0) + "Moved past last error") + "Moved back past first error")) (compilation-forget-errors) (error (concat compilation-error-message (and (get-buffer-process (current-buffer)) -- 2.30.2